home *** CD-ROM | disk | FTP | other *** search
/ Art Fundamentals - Core Concepts in Art / Art Fundamentals: Core Concepts in Art.iso / pc / color.dxr / 00799.ls < prev    next >
Encoding:
Text File  |  2001-07-16  |  1.1 KB  |  44 lines
  1. on exitFrame me
  2.   global comp_elem, warmsunr, warmsung, warmsunb, warmskyr, warmskyg, warmskyb, warmhillsr, warmhillsg, warmhillsb, warmtreesr, warmtreesg, warmtreesb, coolsunr, coolsung, coolsunb, coolskyr, coolskyg, coolskyb, coolhillsr, coolhillsg, coolhillsb, cooltreesr, cooltreesg, cooltreesb
  3.   warmsunr = 255
  4.   warmskyr = 255
  5.   warmhillsr = 255
  6.   warmtreesr = 255
  7.   coolsung = 255
  8.   coolskyg = 255
  9.   coolhillsg = 255
  10.   cooltreesg = 255
  11.   warmsung = 0
  12.   warmsunb = 0
  13.   warmskyg = 0
  14.   warmskyb = 0
  15.   warmhillsg = 0
  16.   warmhillsb = 0
  17.   warmtreesg = 0
  18.   warmtreesb = 0
  19.   coolsunr = 0
  20.   coolsunb = 0
  21.   coolskyr = 0
  22.   coolskyb = 0
  23.   coolhillsr = 0
  24.   coolhillsb = 0
  25.   cooltreesr = 0
  26.   cooltreesb = 0
  27.   showit(185, 187)
  28.   hideit(188, 190)
  29.   showit(191, 191)
  30.   hideit(192, 197)
  31.   showit(198, 200)
  32.   hideit(201, 202)
  33.   showit(203, 203)
  34.   set the constraint of sprite 38 to 37
  35.   repeat with comp_elem = 47 to 50
  36.     sprite(comp_elem).color = rgb(255, 0, 0)
  37.     set the blend of sprite comp_elem to 50
  38.   end repeat
  39.   repeat with comp_elem = 51 to 54
  40.     sprite(comp_elem).color = rgb(0, 255, 0)
  41.     set the blend of sprite comp_elem to 50
  42.   end repeat
  43. end
  44.